home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 December / 2004-12 CHIP.iso / CHIP / Porady / Srodowisko PHP-MySQL / ACTIVESTATE PERL ADD-ON / PERL_add-on.exe / {app} / perl / bin / stubmaker.pl < prev    next >
Perl Script  |  2004-06-01  |  726b  |  28 lines
  1. #!/bin/env perl 
  2. #!d:\perl\bin\perl.exe 
  3.  
  4. # -- SOAP::Lite -- soaplite.com -- Copyright (C) 2001 Paul Kulchenko --
  5.  
  6. use SOAP::Lite;
  7.  
  8. print "Accessing...\n";
  9. my $schema = SOAP::Schema
  10.   -> schema(shift or die "Usage: $0 <URL with schema description> [<service> [<port>]]\n")
  11.   -> parse(@ARGV);
  12.  
  13. print "Writing...\n";
  14. foreach (keys %{$schema->services}) {
  15.   my $file = "./$_.pm";
  16.   print("$file exists, skipped...\n"), next if -s $file;
  17.   open(F, ">$file") or die $!;
  18.   print F $schema->stub($_);
  19.   close(F) or die $!;
  20.   print "$file done\n";
  21. }
  22.  
  23. # try
  24. # > perl stubmaker.pl http://www.xmethods.net/sd/StockQuoteService.wsdl
  25.  
  26. # then
  27. # > perl "-MStockQuoteService qw(:all)" -le "print getQuote('MSFT')" 
  28.